home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 June / Cd Pc Users 9.iso / prog / inst / anictl / resdemo / animate.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-12-29  |  2.5 KB  |  76 lines
  1. VERSION 5.00
  2. Object = "{E112F284-62AB-11D1-A1FA-00C0DFE045F2}#1.1#0"; "ccrpani.ocx"
  3. Begin VB.Form Animate 
  4.    Caption         =   "File Download: VBCCRP Animation Control Demo"
  5.    ClientHeight    =   2028
  6.    ClientLeft      =   4680
  7.    ClientTop       =   4008
  8.    ClientWidth     =   5568
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   2028
  12.    ScaleWidth      =   5568
  13.    Begin Animation.ccrpAnimation ccrpAnimation 
  14.       Height          =   732
  15.       Left            =   120
  16.       Top             =   120
  17.       Width           =   5352
  18.       _ExtentX        =   9440
  19.       _ExtentY        =   1291
  20.       BackColor       =   -2147483644
  21.       BorderStyle     =   0
  22.       Center          =   -1  'True
  23.    End
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "Cancel"
  26.       Height          =   345
  27.       Left            =   4335
  28.       TabIndex        =   3
  29.       Top             =   1500
  30.       Width           =   1080
  31.    End
  32.    Begin VB.Label Label3 
  33.       BackStyle       =   0  'Transparent
  34.       Caption         =   "Filename from 111.11.111.11"
  35.       Height          =   255
  36.       Left            =   135
  37.       TabIndex        =   2
  38.       Top             =   1110
  39.       Width           =   3975
  40.    End
  41.    Begin VB.Label Label2 
  42.       BackStyle       =   0  'Transparent
  43.       Caption         =   "Saving:"
  44.       Height          =   255
  45.       Left            =   135
  46.       TabIndex        =   1
  47.       Top             =   870
  48.       Width           =   1890
  49.    End
  50.    Begin VB.Label Label1 
  51.       BackStyle       =   0  'Transparent
  52.       Caption         =   "Estimated Time Left: 1 hr 4 min 30 sec (400 kb copied)"
  53.       Height          =   255
  54.       Left            =   135
  55.       TabIndex        =   0
  56.       Top             =   1770
  57.       Width           =   3930
  58.    End
  59. Attribute VB_Name = "Animate"
  60. Attribute VB_GlobalNameSpace = False
  61. Attribute VB_Creatable = False
  62. Attribute VB_PredeclaredId = True
  63. Attribute VB_Exposed = False
  64. Private Sub Form_Load()
  65.   'Load AVI resource
  66.   'Note that you must pass App.hInstance as the 2nd parameter
  67.   'otherwise the control will not locate the resource correctly
  68.   ccrpAnimation.OpenAVIResource 1, App.hInstance
  69.   'If you are loading from a file, no code is required.
  70.   'Simply set the Filename property and set AutoOpen and AutoPlay to true
  71.   'and the AVI will start playing when the control is initialised (when the form is loaded)
  72. End Sub
  73. Private Sub Command1_Click()
  74.   End
  75. End Sub
  76.